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EDTSFDEC = format a decimal number 


D1 
1e-Sep-1986 19:98:05 DISkSVMSmA 


$-32.V 
ASteR ceo 


3 1 608) STITLE "EDTSFDEC = format a decimal number' 

3 ¢ it MODULE EDTSFDEC ! Format a decimal number 

3 z Bode pDENT = 'v04-000' ! File: FOEC.BLI Edit: 
F 2 bbe : BEGIN 

: 4 0007 1 Re RRR ERRRA EERE ARAEE RARE AREAE ERATE E EH TAAAE ER AAREHREREHARAEReAAeAe AAS 

$ 1 Ie * 

3 ~ 0009 1 !* COPYRIGHT (c) 1978, 1980, 1982, 1984 * 

3 10 0010 1 !* DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. * 

; 1} Bott : ” ALL RIGHTS RESERVED. * 

; if i 

3 ig org 1 '* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 

; 14 0014 1 !* ONLY IN ACCORDANCE WITH THE {ERnS OF SUCH LICENSE AND WITH THE * 

; 15 0015 1 !* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 

3 16 0016 1 i COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 

3 17 0017 1 !* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 

; Ys id : ° TRANSFERRED. * 

3 ‘® uv 

) a 0020 1 !* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 

: >. 0021 1 !'* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 

; $$ B058 : ie CORPORATION. * 

M if ® 

; 26 0024 1 !* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 

:; @& 0025 1 !* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. « 

; & 0026 1 !* * 

; ef 0027 1 !« * 

: 28 0028 1 Nee e eee e eee eee RRA RAAA AREA EAA A EAE A AAA AAE AAA AAAAAA AREER AAAERARAE EEE 

3; @& S94 7% 

3 30 0030 1 

ae >| 0031 1 !++ i 

ie 0032 1 ! FACILITY: EDT -=- The DEC Standard Editor 

= 0033 1! 

; 34 0034 1 | ABSTRACT: 

; 35 0035 1! 

; » 0036 1: Format a decimal number. 

4 0037 1! 

3 Hs sit : ENVIRONMENT: Runs at any access mode - AST reentrant 

; re sre ! AUTHOR: Bob Kushlis, CREATION DATE: March 18, 1979 

; 462 0042 1 | MODIFIED BY: 

3s 645 0043 1: 

: 644 Boee 1! 1-001 - Original. DJS 19-FEB-1981. This module was created by 

3 45 045 1: ontrecting routine EDTSSFMT pcm from module FORMAT. 

: 0046 1 ! 1-002 - Regularize headers. JBS 05-Mar-1981 : 

> OF 0047 1 | 1-003 - Rewrite to use recursion. This saves 17 words over version 1-002 

: 48 0048 1} on the PDP- JBS 05-Mar-19 

: 49 se 1/1. my - Correct infinite dof eg JBS 02-Apr-1981 

; 30 0081 ! has 1-005 - Improve the appearance of the Listing. JBS 14-Jun-1983 

: $52 052 1 
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3 
Declarations 4 
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; ¢ O34 } XSBTTL ‘Declarations’ 

; $ 055 1 ! TABLE OF CONTENTS: 

3 $26 1! 
g 8 82 1 

; 59 0 8 1 REQUIRE "EDTSRC:TRAROUNAM'; 
; 60 497 1 

: «61 498 1 FORWARD ROUTINE 
; 6 499 EDTSSFMT_DCML : NOVALUE; 
3; (64 501 1! 
: «665 3 : 1 | INCLUDE FILES: 
: 66 1! 
; «667 504 1 
; «68 \ 905 1 REQUIRE "EDTSRC:EDTREQ'; | 
; 669 640 1 

3 70 0641 1! 
ee 0642 1 ! MACROS: 
eg a 0643 1! | 
SS 0644 1! NONE 

; 7% 0645 1: | 
. 0646 1 ' EQUATED SYMBOLS: 

; 76 0647 1! 

: 77 0648 1! NONE 

: 78 0649 1! 

: 79 0650 1 ! OWN STORAGE: 
; 80 0651 1! 

ae -5 0652 1! NONE 

: & 0653 1! 

; | «83 0654 1 ! EXTERNAL REFERENCES: 

: BS 0655 1: 
>: 85 0656 1 | In the routine | 


F 11 | 
DISFDEC = format a decimal number 16-Sep-1984 00:20:37 VAX-11 Bliss-32 V4.0-74 Page 3. 
DTSSFMT_DCML = format a decimal number 13-808-1 3b 99:39:35 DISKSVMSMASTER:CED OERCSFDEC.BLI:1 . (3). 
; 7 o38 } ZSBTTL "EDTSSFMT_DCML = format a decimal number’ 
; 34 6 5 1 GLOBAL ROUTINE EDTSSFMT_DCML ( ! Format a decimal number 
3 660 1 ! The number to format 
ae 2 661 1 ) : NOVALUE = 
3 85 662 1 
: = 0665 1 !+4+ 
4 3° ee) ! FUNCTIONAL DESCRIPTION: 
>; «%6 0666 1! Convert a decimal number to displayable ASCII in the format buffer. 
3 24 +984 : The number is written with a leading minus and leading zeros suppressed. 
; 299 669 1 | FORMAL PARAMETERS: | 
; 100 0670 1! 
3; 101 0671 1! N The number to write out. 
: 108 0672 1: | 
: 10 0673 1 =! IMPLICIT INPUTS: 
: 104 0674 1! 
3 105 0675 1: NONE 
> 106 0676 1: 
s 107 0677 1 =! IMPLICIT OUTPUTS: 
: 108 0678 1! 
: 109 0679 1: NONE | 
; 110 0680 1! 
3; 6111 0681 1 ! ROUTINE VALUE: | 
; it¢ 0682 1! | 
3; (11 0683 1! NONE 
3 (114 0684 1! 
s 115 0685 1 ! SIDE EFFECTS: 
: 116 0686 1! 
3 117 0687 1! Calls itself for large numbers. | 
s 1718 0688 1! 
> 119 0689 1 !-- 
; 120 0690 1 
3; 121 0691 2 BEGIN 
: 122 069 
: 123 069 EXTERNAL ROUTINE 
3 124 0694 EDTSS$FMT_CH : NOVALUE; 
> 125 695 | 
; 126 696 LOCAL 
: 157 0697 POSITIVE_N; | 
: 128 0698 
: 129 0699 '¢ 
s 130 0700 ' See if we should put out a minus. 
: : 1 4} !- 
Poe § $788 IF (.N LSS 0) 
: 134 0704 THEN 
: ia 705 BEGIN 
> 9 706 EDTSSFMT_CH (2%C'="); 
: 137 70 POSITIVE_N = -.N; 
; 138 708 E 
: 139 709 ELSE 
: 140 710 POSITIVE_N = .N; 
3; «(141 711 
; 14g ie '¢ 
; (4 071 ! If the number is greater than or equal to 10, print 
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11 
EDTSFDEC EDTSFDEC = format a decimal number 1-Se 1984 00:20:37 VAX-11 Bliss-32 V4.0-74 P 4 
104-000 EDTSSFMT_DCML = format a decimal number 137 308-1 384 99:39:38 DL SKSVMGMASTERSCEDT SRCSFDEC.BLIs1 ee (3) V 
: 146 714 2! the leading digits first. | 
> «145 715 fe ati 
; 146 216 | 
: 1th 1a IF (.POSITIVE_N GEQ 10) THEN EDTSSFMT_DCML (.POSITIVE_N/10); 
: 149 HS 5 ts 
; 130 , 0 i Now print the low-order (last) digit. 
; 138 0728 EDTSSFMT_CH ((.POSITIVE_N MOD 10) + '0"); | 
3; 07 1 END; ! of routine EDTSSFMT_DCML | 

| 


TITLE corer pes EDTSFDEC = format a decimal number 
-IDENT \V04-000\ 


.EXTRN EDTSSFMT_CH 
.PSECT _EDTSCODE,NOWRT, SHR, PIC,2 


001¢ 00000 -ENTRY EDTSSFMT_DCML, Save R2,R3,R4 : 0659 
54 000000006 00 9 90002 MOVAB EDTSSFMT~CH, R4 : 
53 04 AC 00 0000 MOVL N, R3 + 0703 
OA 18 0000D BGEQ =si1 : 
D DD O000F PUSHL #45 + 0706 
64 1 FB 00011 CALLS #1, EDTSSFMT_CH : 
52 cE 00014 MNEGL 3. POSITIVE N : 0707 
9 11 00017 BRB 2 : 0703 
52 DO 00019 1$: MOVL 3, POSITIVE_N + 0710 
OA 32 D1 OOOIC 2$: CMPL  POSITIVE_N, 710 : 0717 
08 19 OOO1F BLSS 3$ ; 
7E 52 OA C7 00021 DIVL3 #10, POSITIVE_N, -(SP) : 

D7 —sAF 1 FB 00025 CALLS #1, EDTSSFMT_BCML 3 
7E 00 52 01 7A 00029 3$ UL #1. POSITIVEN, #0, -(SP) ; 0722 | 
50 50 BE 0A 7B 900 : IV #16, (SP)+, RO. R ; 

30 AO 9F 000 PUSHAB 48(RO) : 
64 01 FB 00036 CALLS #1, EDTSSFMT_CH ; 
04 00039 RET : 0723 


; Routine Size: 58 bytes, Routine Base: _EDTSCODE + 0000 


724 «1 
725 1 !<BLF/PAGE> 
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: ey! 58 code + 0 data bytes 


; Elapsed Time: : 

3 Lines/CPU Min: 4564 
3 Cem Ak Rae 12119 
5 "Y Used: 58 pages 
3 — ation Complete 
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EDTSFDEC DISFDEC = format a decimal number g-3e0 VAX-11 Bliss-32 V4.0-74 
teat EDTSSPAT _pcme - format a decimal number r -Sep- 071382 99: $¢: 35 DISKSVMSMASTER: CEDT.SRCJFDEC.BLI;1 
: 138 O73? } END ! of module EDTSFDEC 
; 159 728 0 ELUDOM 
; PSECT SUMMARY 
: Name Bytes Attributes 
: EDTSCODE 58 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 
: Library Statistics 
: socccece Symbols ------ -- Pages Processing 
$ File Total Loaded Percent Mapped Time 
; _$255$DUA28:CEDT.SRCJEDT.L32;1 377 0 0 40 00:00.2 
; ~$255$DUA28:CEDT.SRCIPSECTS.L32;1 2 1 50 7 00:00.1 
$ COMMAND QUALIFIERS 
3 BLISS/CHECK=(FIELD, INITIAL,OPTIMIZE) /NOTRACEBACK/LIS=LIS$:FDEC/OBJ=OBJ$:FDEC MSRC$:FDEC.BLI/UPDATE=(ENHS$:FDEC) 


. 
age ; 


| 
(4), 


0133 AH-BT13A | | T CORPORATION 
: VAX/VMS_V4.0 | PROPRIETARY 


